/* GUI CONVERTED from gpmpup02.p (converter v1.76) Mon Feb  3 12:45:45 2003 */
/* gpmpup02.p - Recalculate Materials Plan - sets vars on AppServer */
/* Copyright 1986-2003 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.2 $                                                         */
/* Revision: 1.1    BY: Tony Brooks    DATE: 05/02/02  ECO: *P05X*          */
/* $Revision: 1.2 $ BY: Tony Brooks    DATE: 10/31/02  ECO: *P0JR*          */
/*V8:ConvertMode=Report                                                 */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

define input parameter p_frwrd like soc_fcst_fwd no-undo.
define input parameter p_bck like soc_fcst_bck no-undo.
define input parameter p_horizon as integer no-undo.
define input parameter p_reldays like mrpc_reldays no-undo.
define input parameter p_drp like mfc_logical no-undo.
define input parameter p_mrp like mfc_logical no-undo.
define input parameter p_ms like mfc_logical no-undo.
define input parameter p_non_ms like mfc_logical no-undo.
define input parameter p_buyer like pt_buyer no-undo.
define input parameter p_vendor like pt_vend no-undo.
define input parameter p_pm_code like pt_pm_code no-undo.
define input parameter p_prod_line like pt_prod_line no-undo.
define input parameter p_ptgroup like pt_group no-undo.
define input parameter p_part_type like pt_part_type no-undo.
define input parameter p_thread as integer no-undo.


{mfglobal.i}
{gpmpvar2.i "new global shared"}

/* These var came from gpmpup.p and are defined without no-undo */

define new global shared variable frwrd like soc_fcst_fwd.
define new global shared variable mrfsup1_frwrd like soc_fcst_fwd no-undo.
define new global shared variable bck    like soc_fcst_bck.
define new global shared variable horizon as integer no-undo.
define new global shared variable reldays like mrpc_reldays.

define new shared buffer in_mstr for in_mstr.
define new shared buffer pt_mstr for pt_mstr.
define new shared buffer ptp_det for ptp_det.

assign frwrd = p_frwrd
       mrfsup1_frwrd = p_frwrd
       bck = p_bck
       horizon = p_horizon
       reldays = p_reldays
       drp = p_drp
       mrp = p_mrp
       ms = p_ms
       non_ms = p_non_ms
       buyer = p_buyer
       vendor = p_vendor
       pm_code = p_pm_code
       prod_line = p_prod_line
       ptgroup = p_ptgroup
       part_type = p_part_type.

/* Startup the persistent Procedure */
{gprunp.i "mrppl" "p" "initmrp"}
